DEFINITION MODULE Paths;

(* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)


PROCEDURE Locate( fileName :ARRAY OF CHAR; envPath :ARRAY OF CHAR;
                  VAR PathAndName :ARRAY OF CHAR; VAR found :BOOLEAN );
(*
    following the PATH specified in the envPath evironment string,
    try to locate the file fileName.

    If the file is located, its complete path name is returned in
    PathAndName.

    Example:

        Locate( "M2ED.CFG", "PATH", pathName, found );
        IF found THEN
            Lookup( f, pathName );
            ...
*)

END Paths.